00100	MAG=MAG*.999; < FOR FIX BUG???
00200	COMPILE;
00300	INSTRUMENT GLIS2;
00400	OSCIL(P4,MAG/P2,P5);
00500	OSCIL(MAG*P7-MAG*P3, MAG/P2,P10);
00600	OSCIL(U2,MAG/P8,P9);
00700	OSCIL(U1,MAG*P3+U3,P6);
00800	OUTA←OUTA+U4; END;
00900	INSTRUMENT GLISS;
01000	OSCIL(P4,MAG/P2,P5);
01100	OSCIL(P7*MAG-MAG*P3,MAG/P8,P9);
01200	OSCIL(U1,U2+MAG*P3,P6);
01300	OUTA←OUTA+U3;END;
01400	INSTRUMENT FM;
01500	OSCIL(P4,MAG/P2,P5);
01600	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
01700	OSCIL(U2,P9*MAG,P11);
01800	OSCIL(U1,U3+P3*MAG,P6);
01900	OUTA←OUTA+U4; END;
02000	
02100	INSTRUMENT FM2;
02200	OSCIL(P4,MAG/P2,P5);
02300	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
02400	OSCIL(U2,P9*MAG,P11);
02500	OSCIL(U1,U3+P3*MAG,P6);
02600	OUTA←OUTA+U4; END;
02700	INSTRUMENT NOISE;
02800	OSCIL(P4,MAG/P2,P5);
02900	RANDH(MAG*P7,MAG*P8);
03000	OSCIL(U1,MAG*P3+U2,P6);
03100	OUTA←OUTA+U3; END;
03105	
03110	INSTRUMENT FM3;
03118	OSCIL(P4,MAG/P2,P5);
03126	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
03134	OSCIL(U2,P9*MAG,P11);
03142	OSCIL(U1,U3+P3*MAG,P6);
03150	OUTA←OUTA+U4; END;
03158	INSTRUMENT NOISE;
03166	OSCIL(P4,MAG/P2,P5);
03174	RANDH(MAG*P7,MAG*P8);
03182	OSCIL(U1,MAG*P3+U2,P6);
03190	OUTA←OUTA+U3; END;
03200	
03300	INSTRUMENT NOISX;
03400	OSCIL(P4,MAG/P2,P5);
03500	OSCIL(MAG*P9,MAG/P10,P11);
03600	RANDH(U2+MAG*P7,MAG*P8);
03700	OSCIL(U1,MAG*P3+U3,P6);
03800	OUTA←OUTA+U4; END;
03900	FINISH;
04000	
04100	ARRAY F5,F6,F7(512); <F1 is already present.
04200	SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
04300	SEG(F6);0,1  0,60  1,100; <Slope
04400	SYNTH(F1);1 1 3 .3  5 .2  7 .001 999;
04500	SEG(F7);0 1 1 100;
04600	
04700	
04800	PLAY;GLIS2 0 .5 100 2000 F5 F1 P3+5 .5 F6 F7;FINISH;